home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 3 / inter@ivo 1996-04.iso / cybint3 / bin / curios.dxr / 00032.ls < prev    next >
Encoding:
Text File  |  1996-03-21  |  973 b   |  51 lines
  1. on exitFrame
  2.   set hot to 14
  3.   set vis to 0
  4.   set check to 0
  5.   set cold to 2
  6.   repeat while hot < 20
  7.     if rollOver(hot) then
  8.       set check to 1
  9.       exit repeat
  10.     end if
  11.     set hot to hot + 1
  12.   end repeat
  13.   if check = 0 then
  14.     clearAll()
  15.     go("rollin")
  16.   end if
  17.   if hot = 14 then
  18.     set vis to 2
  19.   else
  20.     if hot = 15 then
  21.       set vis to 4
  22.     else
  23.       if hot = 16 then
  24.         set vis to 6
  25.       else
  26.         if hot = 17 then
  27.           set vis to 8
  28.         else
  29.           if hot = 18 then
  30.             set vis to 10
  31.           else
  32.             if hot = 19 then
  33.               set vis to 12
  34.             end if
  35.           end if
  36.         end if
  37.       end if
  38.     end if
  39.   end if
  40.   set the visible of sprite vis to 1
  41.   set the visible of sprite (vis + 1) to 1
  42.   repeat while cold < 14
  43.     if (cold <> vis) and (cold <> (vis + 1)) then
  44.       set the visible of sprite cold to 0
  45.     end if
  46.     set cold to cold + 1
  47.   end repeat
  48.   updateStage()
  49.   go(the frame)
  50. end
  51.